home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CTRDI.z / CTRDI
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCTTTTRRRRDDDDIIII((((3333FFFF))))                                                            CCCCTTTTRRRRDDDDIIII((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CTRDI   - CTRDI computes the determinant and inverse of a complex
  10.      triangular matrix.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE CTRDI(T,LDT,N,DET,JOB,INFO)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      TTTT COMPLEX(LDT,N)
  20.         T contains the triangular matrix.  The zero
  21.         elements of the matrix are not referenced, and
  22.         the corresponding elements of the array can be
  23.         used to store other information.
  24.  
  25.      LLLLDDDDTTTT INTEGER
  26.         LDT is the leading dimension of the array T.
  27.  
  28.      NNNN INTEGER
  29.         N is the order of the system.
  30.  
  31.      JJJJOOOOBBBB INTEGER
  32.         = 010       no det, inverse of lower triangular.
  33.         = 011       no det, inverse of upper triangular.
  34.         = 100       det, no inverse.
  35.         = 110       det, inverse of lower triangular.
  36.         = 111       det, inverse of upper triangular.  On Return
  37.  
  38.      TTTT inverse of original matrix if requested.
  39.         Otherwise unchanged.
  40.  
  41.      DDDDEEEETTTT COMPLEX(2)
  42.         determinant of original matrix if requested.
  43.         Otherwise not referenced.
  44.         Determinant = DET(1) * 10.0**DET(2)
  45.         with  1.0 .LE. CABS1(DET(1)) .LT. 10.0
  46.         or  DET(1) .EQ. 0.0 .
  47.  
  48.      IIIINNNNFFFFOOOO INTEGER
  49.         INFO contains zero if the system is nonsingular
  50.         and the inverse is requested.
  51.         Otherwise INFO contains the index of
  52.         a zero diagonal element of T.  LINPACK.  This version dated 08/14/78 .
  53.      Cleve Moler, University of New Mexico, Argonne National Lab.  Subroutines
  54.      and Functions BLAS CAXPY,CSCAL Fortran ABS,AIMAG,CMPLX,MOD,REAL
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.